home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / nutritio.sit / Nutrition v1.1 / card_8213.txt < prev    next >
Text File  |  1988-02-13  |  4KB  |  241 lines
  1. -- card: 8213 from stack: in.1
  2. -- bmap block id: 4405
  3. -- flags: 0000
  4. -- background id: 7924
  5. -- name: Nutrient plot
  6. ----- HyperTalk script -----
  7. on openCard
  8.   if card field id 1 is empty then exit openCard
  9.   repeat with n = 1 to 8
  10.     put 2 * n - 1 into l
  11.     put line l of card field id 1 into amount
  12.     put line n of card field id 28 into rda
  13.     put round ((amount/rda) * 100 + .5) into line l of card field id 25
  14.   end repeat
  15.   repeat with n = 1 to 7
  16.     put 2 * n -1 into l
  17.     put line l of card field id 11 into amount
  18.     put n + 8 into m
  19.     put line m of card field id 28 into rda
  20.     put round ((amount/rda) * 100 + .5) into line l of card field id 30
  21.   end repeat
  22. end openCard
  23.  
  24.  
  25.  
  26.  
  27. -- part 1 (field)
  28. -- low flags: 00
  29. -- high flags: 0000
  30. -- rect: left=327 top=56 right=299 bottom=380
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 65535
  34. -- font id: 129
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: A
  39.  
  40.  
  41. -- part 9 (button)
  42. -- low flags: 00
  43. -- high flags: 0000
  44. -- rect: left=457 top=305 right=341 bottom=507
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 1012 / 1012
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: Return
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   put empty into card field id 1
  56.   put empty into card field id 11
  57.   put empty into card field id 25
  58.   put empty into card field id 30
  59.   visual effect dissolve
  60.   pop card
  61. end mouseUp
  62.  
  63.  
  64.  
  65.  
  66. -- part 11 (field)
  67. -- low flags: 01
  68. -- high flags: 0000
  69. -- rect: left=80 top=71 right=282 bottom=134
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 65535
  73. -- font id: 129
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: 
  78.  
  79.  
  80. -- part 14 (button)
  81. -- low flags: 00
  82. -- high flags: 8003
  83. -- rect: left=74 top=8 right=30 bottom=174
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: View Sources
  92. ----- HyperTalk script -----
  93. on mouseUp
  94.   go to card id 6810
  95. end mouseUp
  96.  
  97.  
  98.  
  99.  
  100. -- part 25 (field)
  101. -- low flags: 01
  102. -- high flags: 0000
  103. -- rect: left=267 top=56 right=301 bottom=314
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 65535
  107. -- font id: 3
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: 
  112.  
  113.  
  114. -- part 28 (field)
  115. -- low flags: 81
  116. -- high flags: 0000
  117. -- rect: left=77 top=55 right=311 bottom=120
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 0
  121. -- font id: 129
  122. -- text size: 12
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: RDA's
  126.  
  127.  
  128. -- part 29 (button)
  129. -- low flags: 00
  130. -- high flags: 8003
  131. -- rect: left=306 top=8 right=29 bottom=444
  132. -- title width / last selected line: 0
  133. -- icon id / first selected line: 0 / 0
  134. -- text alignment: 1
  135. -- font id: 0
  136. -- text size: 12
  137. -- style flags: 0
  138. -- line height: 16
  139. -- part name: Customize to User
  140. ----- HyperTalk script -----
  141. on mouseUp
  142.   push card
  143.   go to card id 5328
  144. end mouseUp
  145.  
  146.  
  147.  
  148.  
  149. -- part 30 (field)
  150. -- low flags: 01
  151. -- high flags: 0000
  152. -- rect: left=18 top=71 right=282 bottom=72
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 65535
  156. -- font id: 129
  157. -- text size: 12
  158. -- style flags: 0
  159. -- line height: 16
  160. -- part name: 
  161.  
  162.  
  163. -- part 31 (field)
  164. -- low flags: 81
  165. -- high flags: 0000
  166. -- rect: left=196 top=38 right=342 bottom=252
  167. -- title width / last selected line: 0
  168. -- icon id / first selected line: 0 / 0
  169. -- text alignment: 0
  170. -- font id: 129
  171. -- text size: 12
  172. -- style flags: 0
  173. -- line height: 16
  174. -- part name: 
  175.  
  176.  
  177. -- part contents for card part 16
  178. ----- text -----
  179. Note: The values for recommended daily allowance (RDA) used here were for adult males.
  180. Adults need approximately 50 grams of protein a day.
  181. Pregnant women should get 80-100 grams of protein daily.
  182. Take into account the fact that these totals are just for breakfast in this trial stack.
  183. The full version will include totals for minerals as well.
  184.  
  185. -- part contents for card part 27
  186. ----- text -----
  187. 1000
  188. 60
  189. 1.4
  190. 1.6
  191. 2.2
  192. 3
  193. 18
  194. 400
  195. 800
  196. 800
  197. 350
  198. 10
  199. 15
  200. 1100
  201. 2000
  202.  
  203.  
  204.  
  205. -- part contents for card part 31
  206. ----- text -----
  207. 1000
  208. 60
  209. 1.4
  210. 1.6
  211. 2.2
  212. 3
  213. 18
  214. 400
  215. 800
  216. 800
  217. 350
  218. 10
  219. 15
  220. 1100
  221. 2000
  222.  
  223. -- part contents for card part 28
  224. ----- text -----
  225. 5000
  226. 60
  227. 1.4
  228. 1.6
  229. 2.2
  230. 3
  231. 18
  232. 400
  233. 800
  234. 800
  235. 350
  236. 10
  237. 15
  238. 1100
  239. 2000
  240. 56
  241. 2700